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1-002 RPG AB_MOVE. aes 96:19:38 RPGRTL . SAE IRPCMOVES MAR: 1 . (4) 

09 89 -SBTTL RPGSAB_MOVE_3 | : 

0 Q ;++ | 3 

09 4. ; FUNCTIONAL DESCRIPTION: : 

000 38 3 This is the alphanumeric to numeric translation table | : 

0000 94 ; which forces a negative sign. : 

000 95 ; ; 

000 96 ;-- 3 

000 97 $ 

000 98 RPGSAB_MOVE_3:: ; 

7D 7D 7D 7D 7D 7D 7D 7D $88 99 «BYTE  “*X7D,*X7D,°X7D,°X7D,°X7D,°X7D,°X7D,°X7D : 
7D 70 7D 70 7D 70 7D 7D «000 100 «BYTE “*X7D,°X7D,*X7D,°X7D,°X7D,°X7D,°X7D,°X7D : 
7D 7D 7D 7D 7D 7D 7D 7D «©20010~=—- 101 -BYTE “X7D,*X7D0,°X7D,*X7D,°X7D,°X7D,°X7D,°X7D : 
70 7D 7D 7D 7D 7D 7D 7D ~=«~20018~=—: 102 «BYTE “X7D,*X7D0,*X7D,*°X7D,*X7D,°X7D,°X7D,°X7D ; 
7D 7D 70 7D 7D 7D 7D 7D =«©(0020~=— 103 -BYTE “X7D,*X7D,°X7D,*X7D,°X7D,*X7D,°X7D,°X7D : 
7D 7D 7D 7D 7D 70 7D 7D «#240028 = 104 BYTE “*X7D,°X7D,°X7D,°X7D,°X7D,°X7D,°X7D,“X7D 3 
50 4F 4E 4D 4C 48 4A 7D 0030 #8 105 BYTE “X7D,*X4A,°X4B,*X4C,°X4D,°X4E, “X4F ,*X50 F 
7D 7D 7D 7D 7D 7D 52 51 0038 106 -BYTE “X51,°X52,°X7D,*X7D,°X7D,°X7D,°X7D,°X7D 3 
50 4F 4E 4D 4C 4B 4A 7D 0040 107 «BYTE “X7D,*X4A,°X4B,°X4C,°X4D,°X4E, *X4F ,*X50 ; 
4F 4E 4D 4C 4B 4A 52 51 0048 # 108 BYTE =*X51,°X52,°X4A,°X4B, “X40, *X4D, “X4E , *X4F ; 
7D 70 7D 7D 7D 52 51 50 0050 109 ~BYTE  “X50,°X51,°X52,*°X7D,“X7D,*X7D,°X7D,°X7D 3 
7D 7D 7D 7D 7D 7D 7D 7D ~«#20058~=—« 1110 ~BYTE “X7D,*X7D,“°X7D,*X7D,°X7D,*X7D,°X7D,*X7D $ 
7D 70 7D 7D 7D 7D 7D 7D ~=«©20060~—S so‘ -BYT *X7D,°X7D,°X7D,*°X7D,*X7D,*X7D,*X7D,*X7D ; 
7D 7D 7D 7D 7D 7D 7D 7D «(0068 V6 -BYTE “X7D,*X7D,°X7D,*X7D,°X7D,*X7D,°X7D,°X7D 3 
7D 7D 7D 7D 7D 7D 7D 7D ~«©~40070~—s‘'11 -BYTE “X7D,°X7D,“°X7D,°X7D,°X7D,°X7D,°X7D,°X7D : 
7D 7D 7D 7D 7D 7D 7D 7D ~«20078~=—114 ~BYTE “X7D,°X7D,°X7D,*X7D,°X7D,*X7D,°X7D,°X7D $ 
70 7D 70 7D 7D 7D 7D 7D «=«2©0080~=—s«‘115 ~BYTE “X7D,*X7D0,°X7D,*X7D,°X7D,*X7D,°X7D,°X7D : 
7D 7D 70 70 7D 7D 7D 7D ~=«20088 =~ =s«1116 BYTE “X7D,°X7D,°X7D,°X7D,°X7D,°X7D,°X7D,“*X7D : 
7D 7D 7D 7D 7D 7D 7D 7D ~«~©0090~=—s‘117 . *X7D,°X7D,°X7D,°X7D,*X7D,°X7D,°X7D,°X7D ; 
7D 70 7D 7D 7D 7D 7D 7D «#20098 )~=—: 1118 BYTE “X7D,*X7D,°X7D,*X7D,°X7D,*X7D,°X7D,°X7D $ 
70 7D 70 70 7D 7D 7D 7D ~=«~QOAO 119 BYTE  “X7D,*X7D,°X7D,*°X7D,°X7D,*X7D,°X7D,°X7D ; 
70 7D 7D 7D 7D 7D 7D 7D ~=«~QOAB = 120 BYTE  “*X7D,*X7D,“°X7D,*X7D,°X7D,*X7D,°X7D,°X7D : 
7D 70 70 7D 7D 7D 7D 7D ~=«~00B0~—s«121 -BYTE “X7D,°X7D,*X7D,°X7D,°X7D,*X7D,°X7D,*X7D : 
7D 70 70 7D 7D 7D 7D 7D «0088 \¢¢ -BYTE *X7D,°X7D,°X7D,*°X7D,*X7D,*X7D,°X7D,°X7D : 
7D 7D 7D 7D 7D 7D 7D 7D ~«~00CO~= Oo «12 ~BYTE “X7D,*X7D,°X7D,*X7D,°X7D,*X7D,°X7D,*X7D 3 
7D 70 7D 7D 70 7D 7D 7D ~=«2(00CB: O124 -BYTE “X7D,°X7D,°X7D,*°X7D,°X7D,*X7D,*X7D,“°X7D : 
7D 7D 7D 7D 70 7D 7D 7D ~«~(00D0~=:« 1125 -BYTE “*X7D,°X7D,°X7D,*X7D,°X7D,*X7D,°X7D,*X7D : 
7D 70 7D 7D 70 7D 7D 7D ~«#(00D8~=—s:«1126 ~BYTE “X7D,*X7D,*X7D,°X7D,*X7D,°X7D,*X7D,“*X7D : 
70 7D 7D 70 7D 70 7D 7D ~=~QOEO = 127 ~BYTE *X7D,*X7D,*X7D,°X7D,*X7D,°X7D,°X7D,*X7D : 
70 70 7D 7D 7D 7D 7D 7D ~«~OOEB) = 128 ~BYTE “X7D,°X7D,°X7D,*°X7D,*°X7D,*X7D,°X7D,*X7D : 
7D 7D 7D 7D 7D 7D 7D 7D ~«(OOFO) 6129 ~BYTE “X7D,*X7D,°X7D,*X7D,°X7D,°X7D,°X7D,°X7D : 
7D 7D 7D 7D 7D 70 7D 7D fa ivy BYTE “X7D,°X7D,°X7D,°X7D,*X7D,°X7D,*X7D,°X7D ; 
0100 133 - END : 
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Symbol “table -SEP-1984 
RPGSAB_MOVE_3 00000000 RG 01 


PSECT name Allocation PSECT No. Attributes 
». Ss % 00000000 ( 0.) O0O¢ QO.) wee USR CON’ ABS LCL ong NOEXE NORD NOWRT NOVEC BYTE 
_RPGSCODE 00000100 (¢ 256.) O01 ¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
pm meena w ama nsoeawsamwaacanaaen 
: Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 10 00:00:00.09 00:00:01.20 
ponnene processing 81 BF RO On ee 00:00:03.92 
58 00:00:00.64 00:00:02.49 
Synbol table sort 0 00:00:00.00 88 +8280 00 
38 00:00:00.29 0:00:01.44 
a mbol table output 1 00:00:00.01 00:00:00.01 
Peect synopsis output 3 00:00:00.02 00:00:00.02 
Cross-reference output 9 00:00:00.00 00:00:00.00 
Assembler run totals 19 00:00:01.68 00:00:09.10 


The working set Limit was 750 oo 

2622 bytes (6 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 1 non-local and 0 local symbols. 
132 source lines were read in Pass 1, id. 8 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


Senn mame note enema re oem ewe me $ 


wee mem ee ene eee see ee eee eee ewe + 


Macro Library name Macros defined 
“S255SDUAZB:(SYSLIBISTARLET.MLB;200 SS o: 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE =SUPPRESS1ON/D1I SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:RPGMOVE °/OBJ=0BJ$:RPGMOVES MSRC$:RPGMOVE3/UPDATE=(ENH$:RPGMOVE 3) 
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NTIAL -AND PROPRIETARY 


